;;;Place house number text at point location.  (requires PTDCL run first).
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:hstxt ()
(if gvpno nil (load "gvpno"))
(gvpno)
(if dimscl nil (load"dimscl"))
(dimscl)
(setq tlayr (strcat "C-" prod "6NOTE"))
  (if hs_lst
    (foreach n hs_lst
      (if (eq(cadr n)(cdr(assoc 1 entlst)))
        nil
        (progn
          (setq entlst
            (list
              (cons 0 "TEXT")
              (cons 1 (cadr n))
              (cons 7 (getvar"textstyle"))
              (cons 8 tlayr)
              (cons 10 (list(caar n)(cadar n)0.0))
              (cons 11 (list(caar n)(cadar n)0.0))
              (cons 40 (* dimsc 0.125))
              (cons 50 (- 0(getvar"viewtwist")))
              (cons 72 1)
              (cons 73 2)
            )
          )
          (entmake entlst)
        )
      )
    )
    (princ "\nNo House Text List available. ")
  )
  (princ)
)